home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / conn173c.zip / RSB5CONN.MRG < prev   
Text File  |  1992-04-24  |  831b  |  20 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
  3. * RBBSSUB5.BAS:  Date 9-1-1991  Size 100075 bytes
  4. * ------------[ Created 04-24-1992 13:41:15 ]------------
  5. * REPLACING old line(s) by new
  6. * ------[ first line different ]------
  7. 20785 ZBlocksInFile# = ZBlocksInFile# / _                            ' CONN173C
  8.                         VAL(MID$("00000300045012002400480072009601200144019203840", -4 * ZBPS,4)) ' CONN173C
  9.       ZBlocksInFile# = ZBlocksInFile# * ZFLen / ZSpeedFactor!
  10.       IF (ZAnsIndex > 1 AND ZConcatFIles) THEN _
  11.          RETURN
  12.       ZOutTxt$ = ZOutTxt$ + _
  13.            STR$(ZBytesInFile#) + _
  14.            " bytes"
  15.       GOSUB 21650
  16.       IF ZFileSysParm > 1 THEN _
  17.          RETURN
  18.       IF ZBytesInFile# < 1 THEN _
  19.          RETURN
  20.